Old Testament Foundatiosn with Philip Yancey/Old Testament Foundatiosn with Philip Yancey - Disc 2.iso/pc/data/m20.dir/00077.ls

Text File | 1996-09-09 | 551 b | 20 lines

on mouseDown
  global gSaveItemsDirectoryPath, gOnIBM, gSaveFile, gMyPath, gMyText, gMyFileName
  set the moveableSprite of sprite 23 to 0
  if pressLessonButton(23) then
    pupSprites(1, 48, 0)
    identifyPlatform()
    if gOnIBM then
      set gMyPath to gSaveItemsDirectoryPath & "\"
    else
      set gMyPath to gSaveItemsDirectoryPath & ":"
    end if
    set gMyPath to gMyPath & "INTCONTE.TXT"
    set gMyText to the text of field "article"
    set gMyFileName to "INTCONTE.TXT"
    saveMyFile()
    alertSave()
  end if
  updateStage()
end